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RPGSBTZ=- Blank-to-zero Translate Table 
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RPGSBTZ - Blank-to-zero Translate Table 16 on 3be=| 138% Oe: 13: ¢§ AX/VMS Macro V04-00 Page 1 
1-002 6-SEP=1 :40:5 RPGRTL.S REIR PGBTZ.MAR (1) 


—zD 


1 ; 

§ -TITLE vite st Blank-to-zero Translate Table : 

i eIDENT /1-002/ ; File: RPGBTZ.MAR Edit: 0G1002 ‘ 

; 

4 ‘ ITIIIIIIIIIIIITIIIIII ITLL ILI LiL Li LTT iiiiititiiiiiiiiiiiiiiin | : 
00 3* * 3 
000 8 3* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * | : 
0000 3* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. ’ ; 
9008 19 i* ALL RIGHTS RESERVED. . | : 
B88 \ :* THIS SOFTWARE is FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * : 
13 ;* ONLY IN wis NCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 

000 14 ;* INCLUSION OF ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * ; 
0000 15 ;* COPIES ONEREOF “hay NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * : 
4464 16 3* OTHER PERSON. O TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * : 
444 ; is TRANSFERRED. . : 
4 19 ie THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * > 
000 0 ;* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * > 
44 1 :* CORPORATION. . : 
0000 : 8 DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR 7 Stead OF ITS * : 
0000 4 ;* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL * : 
ne : 
0000 7 ITTIIIIIIIIII ITIL ITIL TLL LLL LLL LLL LL LLL TLL TLL : 
0000 SB 3 3 
0000 $0 + 
9000 1: FACILITY: RPGII Run Time Support ; 
9000 5 > ABSTRACT: ; 
0000 5: This module contains RPG$BTZ, a translate table which can ; 
0000 6; be used as the argument of LIBSMOVTC (or a MOVIC instruction) to F 
44 38 3 translate Tothe © zeroes. : 
i444 ip > ENVIRONMENT: No executable code. 3 
9000 41; AUTHOR: Debess Grabazs, CREATION DATE: 7-March-1983 3 
9000 68 ; MODIFIED BY: 3 
0000 45 i: 17883 - Original. DG 7-Mar-1983 ; 
000 $6 5 3 02 - Reference -RPGSCODE psect. DG 11-July-1983 3 
0000 47 ;- : 
| ; 
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i] 12 - Blank-to-zero Translate Table 16-SEP-1 71 AX/VMS Macro V04-00 Page 
rr eoe CLARAT IONS greeks ST iukes PARENTS eestor ean. 1 ve 8) 
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49 ~SBTTL DECLARATIONS i 
1} LIBRARY MACRO CALLS: : 
0 § ; NONE 
3 5 : EXTERNAL DECLARATIONS: 
33 x gDSase GBL : Force all external symbols to be declared 
00 9 ; 
900 60 ; MACROS: 
000 6¢ : NONE 
0000 «63: 
909 64 : EQUATED SYMBOLS: 
000 65 ; 
9900 66 ;: NONE 
000 67; 
0000 68 ; OWN STORAGE: 
0000 $9 ; 
9090 0; NONE 
000 713 
4444 Le 3 PSECT DECLARATIONS: 
00000000 74° -PSECT _RPGSCODE PIC, USR, CON, REL, LCL, SHR, - 
0000 83675 EXE, RD, NOWRT. LONG 
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RPG$BTZ - Blank-to-zero Translate Table 16-SEP-1984 02:10:42 VAX/VMS Macro V04-00 Pa R 
1-002 RPGSBTZ=- Blank-to-zero Translate Table 66-SEP-1984 96:18:88 RPGRTL.SRCIJRPGBTZ.MAR; 1 ” 3) 1 
p 4 a -SBTTL RPGSBTZ- Blank-to-zero Translate Table 
2 3 FUNCTIONAL DESCRIPTION: 
o 13 RPG$SBTZ is a translate table, suitable for use with 
0 ¢ : a MOVTC instruction, which specified translation of 
B80 r ; blanks to zeroes. 
$60 73 Only blanks are translated, all other characters 
$38 S 3 translate to themselves. 
B00} 
0000 Q RPGSBTZ:: 
0000 91 
00000000 44 3 
000 9 ~REPEAT <*A/ /=0> 
0000 94 BYTE ] 
0000 95 
00 0000 96 .ENDR 
30 8 0 97 -BYTE *A/0/ 
00000021 0021 98 
0021 99 REPEAT <255-*A/ /> 
0021 100 -—BYTE I 
0021 19 
21 0021 1 § ~ENDR 
0100 10 
0100 104 
0100 105 ~END ; End of module RPG$BTZ 
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RPGSBTZ = Blank-to-zero Translate Table 16-SEP=1 1384 Oe: 9: $s mae 9 o V04-00 Page 
Symbol table 6-SEP=-1 74 RPGRTL.S SRPGB TZ.MAR;1 
RPGS$BTZ 00000000 RG 01 

rrr 

: ; Psect synopsis ; 
PSECT name Allocation PSECT No. Attributes 
o Ss 00000 008 ( 0.) 00 ¢ 0.) NOPIC USR CON ABS LCL —— NOEXE NORD NOWRT NOVEC BYTE 
_RPGSCODE 00000100 (¢ 256.) 01 1.) PIC USR CON REL LCL SHR EXE RD NOWRT NOVEC LONG 


teem enone wee ewer mee mses + 


! ; Performance indicators A 


Phase Page faults CPU Time Elapsed Time 


Initialization 10 00:00:00.07 00:00: 01.4 

Command processing 70 aa Sha BE 00:00:02.6 

Pass 92 00:00:01.72 00:00:04.72 
Symbol table sort 0 oe SD 00:00:00.01 
Pass 2 34 00:00:00.53 00:00:01.59 
Symbol table output 2 00:00:00.01 00:00:00.01 
Psect synopsis output 2 00:00:00.01 00:00:00.29 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 212 00:00:02.99 00:00:10.70 


The working set Limit was 750 pages. 
15208 bytes (30 pages) of virtual memory were used to buffer the intermediate code. 
There were 10 pages of symbol table opae “ty to hold 2 non-local and 0 local symbols. 
105 source Lines were read in Pass 1, produci ts object records in Pass 2 
0 pages of virtual memory were used to define 0 macros. 


See tee me oO Heme Dem eee ft 


Macro Library name Macros defined 
“S$255$DUAZ8:(SYSLIBJSTARLET.MLB:2 0 (iti‘;~;S;*~™S “ 
0 GETS were required to define 0 macros. 

There were no errors, warnings or information messages. 


MACRO/ENABLE=SUPPRESSION/DISABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:RPGBTZ/OBJ=O0BJ$:RPGBTZ MSRC$:RPGBTZ/UPDATE=(ENH$:RPGBTZ) 
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